{ INFORMATICS.MCCME.RU
  Problem statement: http://informatics.mccme.ru/moodle/mod/statements/view3.php?chapterid=346
  Verdict: Accepted
}
uses SysUtils, Math;
 
var
	i,n:longint;
	a0,ap,an,a:int64;
 
begin
reset(input,'input.txt');
rewrite(output,'output.txt');
read(n);
a0:=0;
ap:=0;
an:=0;
for i:=1 to n do begin
	read(a);
	if a=0 then inc(a0) else
	if a<0 then inc(an) else inc(ap);
end;
write(a0,' ',ap,' ',an);
end.